| Filename | (eval 1128)[/usr/share/perl5/CGI.pm:932] |
| Statements | Executed 3 statements in 21µs |
| Eval Invoked At | /usr/share/perl5/CGI.pm line 932 |
| Sibling evals | 1, 2, 3, 4, 5, 6 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 56µs | 92µs | CGI::https |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 92µs (56+36) within CGI::https which was called 3 times, avg 31µs/call:
# 3 times (56µs+36µs) by C4::Auth::get_template_and_user at line 406 of C4/Auth.pm, avg 31µs/call | ||||
| 2 | 1 | 15µs | 4 | 44µs | my ($self,$parameter) = self_or_CGI(@_); # spent 44µs making 4 calls to CGI::self_or_CGI, avg 11µs/call |
| 3 | 1 | 600ns | if ( defined($parameter) ) { | ||
| 4 | $parameter =~ tr/-a-z/_A-Z/; | ||||
| 5 | if ( $parameter =~ /^HTTPS(?:_|$)/ ) { | ||||
| 6 | return $ENV{$parameter}; | ||||
| 7 | } | ||||
| 8 | return $ENV{"HTTPS_$parameter"}; | ||||
| 9 | } | ||||
| 10 | return wantarray | ||||
| 11 | 1 | 5µs | ? grep { /^HTTPS(?:_|$)/ } keys %ENV | ||
| 12 | : $ENV{'HTTPS'}; | ||||
| 13 | } | ||||
| 14 | |||||
| 15 | ; |